home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / windows / wbt31a.zip / PLAY-CD.WB$ < prev    next >
Text File  |  1992-02-15  |  471b  |  21 lines
  1. ;This WBT file plays a music CD on a CDAudio player.  
  2. ;It plays whatever in in the drive, from start to finish.
  3.  
  4.  
  5. stat=PlayMedia("status cdaudio mode")
  6. a=1
  7. if stat=="playing" then a=AskYesNo("CD Audio","CD is Playing.  Stop?")
  8. if a==0 then exit 
  9.  
  10.  
  11. PlayMedia("open cdaudio shareable alias donna notify")
  12. PlayMedia("set donna time format tmsf")
  13. PlayMedia("play donna from 1")
  14. PlayMedia("close donna")
  15. exit
  16.  
  17. :CANCEL
  18.  
  19. PlayMedia("set cdaudio door open")
  20.  
  21.